Private Sub set_Listview(ByVal KeyCode As String)
        SqlCommand2.CommandText = sqlstr & _
        " Where LastName Like '" & KeyCode & "%'"
        SqlCommand2.Connection.Open()
        myrdr = SqlCommand2.ExecuteReader(CommandBehavior.CloseConnection)
        ListView1.Items.Clear()
        Dim lstAdd As ListViewItem
        I = 0
        ListView1.Columns.Clear()
        ListView1.Columns.Add("Name", 140, HorizontalAlignment.Left)
        ListView1.Columns.Add("Address", 70, HorizontalAlignment.Left)
        ListView1.Columns.Add("Phone", 70, HorizontalAlignment.Left)
        Do While myrdr.Read
            node_key = myrdr.GetString(1) & ", " & myrdr.GetString(2)
            ListView1.Items.Add(node_key)
            ListView1.Items(I).SubItems.Add(myrdr.GetString(3))
            ListView1.Items(I).SubItems.Add(myrdr.GetString(5))
            I += 1
        Loop
        myrdr.Close()
End Sub
